home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Publish / C / CoTemplatesDemo.sit / Special Effects / Background Text / Background Text
Encoding:
Text File  |  1988-08-31  |  856 b   |  48 lines  |  [CTPP/CTMP]
  1. % Background Text
  2.  
  3.  
  4. %--------------Variables and Procedures
  5. /TM 1000 def            %Top Margin
  6. /BM -600 def            %Bottom
  7. /LM 0 def                %Left margin for bold type 
  8. /SLM -450 def            %Left margin for shadow type
  9. /RM 612 def            %Right margin for bold type
  10. /SRM 1000 def            %Right margin for shadow type
  11.  
  12.  
  13. /newline
  14. {currentpoint Size1 sub        %This sets line spacing.n was 16
  15.  exch pop LM
  16.  exch moveto } def
  17.  
  18. /nllfNec
  19. { currentpoint pop SRM gt    %beyond SRM?
  20.   {newline} if } def            %yes:next line
  21.  
  22. /done?                %stack:---bool.
  23.  { currentpoint exch pop        %Below BM?
  24.    BM lt} def
  25.  
  26. /fillpage                %stack:str
  27.  { /strg exch def
  28.   { {pop pop nllfNec} strg kshow
  29.     done? {exit} if
  30.   } loop
  31.  } def
  32.  
  33. %---------------Begin Program-------
  34. gsave
  35. 0 0 translate
  36. Angle rotate
  37.  
  38.  
  39.  
  40. Fontname1 findfont Size1 scalefont setfont % was 12
  41. LM TM moveto
  42. Color1 setgray
  43. Background fillpage
  44.  
  45. grestore
  46. showpage
  47.  
  48.